home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / appshell / appprint.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.6 KB  |  92 lines
  1. VERSION 2.00
  2. Begin Form AppPrint 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Print"
  5.    ClientHeight    =   2190
  6.    ClientLeft      =   2445
  7.    ClientTop       =   3060
  8.    ClientWidth     =   3720
  9.    Height          =   2595
  10.    Left            =   2385
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   2190
  14.    ScaleWidth      =   3720
  15.    Top             =   2715
  16.    Width           =   3840
  17.    Begin CommandButton CancelCmd 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "Cancel"
  20.       Height          =   315
  21.       Left            =   2520
  22.       TabIndex        =   4
  23.       Top             =   960
  24.       Width           =   1035
  25.    End
  26.    Begin CommandButton OKCmd 
  27.       Caption         =   "OK"
  28.       Default         =   -1  'True
  29.       Height          =   315
  30.       Left            =   2520
  31.       TabIndex        =   3
  32.       Top             =   540
  33.       Width           =   1035
  34.    End
  35.    Begin TextBox Copies 
  36.       Height          =   315
  37.       Left            =   1020
  38.       TabIndex        =   5
  39.       Text            =   "1"
  40.       Top             =   540
  41.       Width           =   855
  42.    End
  43.    Begin PictureBox Picture1 
  44.       BackColor       =   &H00000000&
  45.       Height          =   45
  46.       Left            =   0
  47.       ScaleHeight     =   15
  48.       ScaleWidth      =   4065
  49.       TabIndex        =   1
  50.       Top             =   300
  51.       Width           =   4095
  52.    End
  53.    Begin Label CopiesLbl 
  54.       Caption         =   "&Copies:"
  55.       Height          =   195
  56.       Left            =   180
  57.       TabIndex        =   2
  58.       Top             =   600
  59.       Width           =   735
  60.    End
  61.    Begin Label PrintingToLbl 
  62.       Height          =   195
  63.       Left            =   60
  64.       TabIndex        =   0
  65.       Top             =   60
  66.       Width           =   3615
  67.    End
  68. Sub CancelCmd_Click ()
  69.   Unload AppPrint
  70. End Sub
  71. Sub Form_Load ()
  72.   Remove_Items_From_SysMenu AppPrint
  73.   Place_DialogBox_in_Form AppPrint, AppMain
  74.   ' determine printer to print to
  75.   If App_PrinterName = "" Then
  76.     '
  77.     ' get the Windows default printer
  78.     '
  79.     GetDefaultPrinter App_PrinterName, App_PrinterDriver, App_PrinterPort
  80.   End If
  81.   PrintingToLbl.Caption = App_PrinterName + " on " + App_PrinterPort
  82. End Sub
  83. Sub OKCmd_Click ()
  84.   ' validate the printing parameters
  85.   If Val(Copies.Text) < 1 Or Val(Copies.Text) > 32000 Then
  86.     MsgBox "Copies must be between 1 and 32000", MB_ICONEXCLAMATION, APP_NAME
  87.     Exit Sub
  88.   End If
  89.   App_PrintCopies = Val(Copies.Text)
  90.   Unload AppPrint
  91. End Sub
  92.